home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / in_var.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  472 b   |  16 lines
  1. if (!defined &_IN_VAR) {
  2.     eval 'sub _IN_VAR {1;}';
  3.     eval 'sub ia_addr { &ia_ifa. &ifa_addr;}';
  4.     eval 'sub ia_broadaddr { &ia_ifa. &ifa_broadaddr;}';
  5.     eval 'sub ia_dstaddr { &ia_ifa. &ifa_dstaddr;}';
  6.     eval 'sub ia_ifp { &ia_ifa. &ifa_ifp;}';
  7.     eval 'sub IA_SIN {
  8.         local($ia) = @_;
  9.         eval "((\'struct sockaddr_in\' *)(&((\'struct in_ifaddr\' *)$ia)-> &ia_addr))";
  10.     }';
  11.     eval 'sub IFA_ROUTE {0x01;}';
  12.     if (defined &KERNEL) {
  13.     }
  14. }
  15. 1;
  16.